home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 June / 1987-06.d64 / impatient input (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  946b  |  28 lines
  1. 10 print"wait..."
  2. 20 a=peek(55)+256*peek(56)
  3. 30 a=a-160:hb=int(a/256)
  4. 40 poke55,a-256*hb:poke56,hb
  5. 50 poke766,a-256*hb:poke767,hb
  6. 60 restore:i=0:t=0
  7. 70 readv:t=t+v:i=i+1:ifi<159then70
  8. 80 ift<>19491thenprint"error in data":end
  9. 90 restore:i=0
  10. 100 readv:pokea+i,v:i=i+1:ifi<159then100
  11. 110 a=a+100:hb=int(a/256):poke1020,76
  12. 120 poke1021,a-256*hb:poke1022,hb
  13. 130 print"impatient inputs in memory":new
  14. 140 data72,138,72,152,72,198,250,208,79,169,60,133
  15. 150 data250,165,252,141,24,212,165,251,141,38,216,141
  16. 160 data39,216,169,32,141,38,4,141,39,4,165,253
  17. 170 data72,74,74,74,74,9,48,201,48,240,3,141
  18. 180 data38,4,104,41,15,9,48,141,39,4,169,0
  19. 190 data141,24,212,165,253,248,56,233,1,133,253,216
  20. 200 data201,153,208,12,162,0,134,254,232,134,198,169
  21. 210 data13,141,119,2,104,168,104,170,104,76,158,2
  22. 220 data234,234,234,234,234,234,173,20,3,141,159,2
  23. 230 data173,21,3,141,160,2,165,253,240,11,170,248
  24. 240 data169,0,24,105,1,202,208,250,216,133,253,169
  25. 250 data1,133,250,133,254,169,76,141,158,2,120,173
  26. 260 data254,2,141,20,3,173,255,2,141,21,3,88
  27. 270 data96,0,0
  28.